home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / win / vb / vqstrng.exe / VQSHELL.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1992-05-15  |  2.9 KB  |  60 lines
  1. Form1
  2. Form1
  3. Form1
  4. Form_Clickz
  5. VqGetVarString
  6. Strng
  7. Handle
  8. PageW
  9. VqVarLenStr@
  10. VqVarGetSize
  11. VqError
  12. VqGetString
  13. VqPutVarString
  14. VqPutString
  15.     Form_Load
  16. VqFixLenStr
  17. VqEraseString
  18. Elements
  19. BufSize
  20. StrSizeb
  21. comment
  22. initialization
  23. FormLoadError
  24. VqGetVarString
  25. Support function to get string from variable length
  26.  VqString array.
  27. VqPutVarString
  28. Support function to store string in variable length
  29.  VqString array.
  30. - Need to append Chr$(0) to end of string.
  31. Form_Load
  32. - Remove the message box call below and insert your own code.
  33. This is a quick start shell for VqString array functions."
  34. See the Form Load procedure for example code."
  35. VqStrings"
  36. * Initialize variable length VqString array 
  37. - To use variable length VqString array, set the valuesn
  38. - of Elements And BufSize And un-comment the
  39. - initialization call below.
  40. x& = VqVarLenStr(Test, 1, Elements, Bufsize)
  41. * Initialize fixed length VqString array 
  42. - To use fixed length VqString array, set the values
  43. - of Elements And BufSize And un-comment the
  44. - initialization call below.
  45. x& = VqFixLenStr(Test, 1, Elements, StrSize)
  46. - Example call to store a string in a variable length VqString array.
  47. If VqPutVarString(Test, Handle%, Element&) < 0 Then Error Abs(VqError)
  48. - Example call to get a string from a variable length VqString array.
  49. If VqGetVarString(Test, Handle%, Element&) < 0 Then Error Abs(VqError)
  50. - Example call to store a string in a fixed length VqString array.
  51. If VqFixLenStr(Test, Handle%, Element&, VqPutString) < 0 Then Error Abs(VqError)
  52. - Example call to get a string from a fixed length VqString array.
  53. If VqFixLenStr(Test, Handle%, Element&, VqGetString) < 0 Then Error Abs(VqError)
  54. * Erase VqString arrays 
  55. - After using VqString array, un-comment the appropriate
  56. - erase call. 
  57. x& = VqFixLenStr(Test, 1, 0, VqEraseString)t
  58. x& = VqVarLenStr(Test, 1, 0, VqEraseString)t
  59. Error"
  60.